library(haven)

# Load in Data set
impdat20_sexuality <- read_spss("./data//Sexuality_IAT.public.2020.sav")
# Subset to USA
impdat20_sexuality <- subset(impdat20_sexuality, countryres_num == 1)

# Meta Info ---------------------------------------------------------------
impdat20_sexuality$date_mdy <- format(impdat20_sexuality$date, "%Y-%m-%d")
impdat20_sexuality$date_mdy <- as.Date(impdat20_sexuality$date_mdy)
impdat20_sexuality$week <- format(as.Date(impdat20_sexuality$date), "%W")

# Demographics ---------------------------------------------------------------
# Age
impdat20_sexuality$age[which(impdat20_sexuality$birthyear > 1900)] <- impdat20_sexuality$year[which(impdat20_sexuality$birthyear > 1900)] - impdat20_sexuality$birthyear[which(impdat20_sexuality$birthyear > 1900)]
impdat20_sexuality$age_sc <- (impdat20_sexuality$age-min(impdat20_sexuality$age, na.rm = T))/(max(impdat20_sexuality$age, na.rm = T)-min(impdat20_sexuality$age, na.rm = T))

impdat20_sexuality$age_cat4 <- NA
impdat20_sexuality$age_cat4[which(impdat20_sexuality$age >= 18 & impdat20_sexuality$age <= 29)] <- "18-29"
impdat20_sexuality$age_cat4[which(impdat20_sexuality$age >= 30 & impdat20_sexuality$age <= 44)] <- "30-44"
impdat20_sexuality$age_cat4[which(impdat20_sexuality$age >= 45 & impdat20_sexuality$age <= 64)] <- "45-64"
impdat20_sexuality$age_cat4[which(impdat20_sexuality$age >= 65)] <- "65+"
impdat20_sexuality$age_cat4 <- as.factor(impdat20_sexuality$age_cat4)

# Sex
impdat20_sexuality$sex <- NA
impdat20_sexuality$sex[which(impdat20_sexuality$birthSex == 2)] <- "f"
impdat20_sexuality$sex[which(impdat20_sexuality$birthSex == 1)] <- "m"

# Race and Ethnicity
impdat20_sexuality$race <- factor(impdat20_sexuality$raceomb_002, 
                           levels = c(1:max(impdat20_sexuality$raceomb_002, na.rm = T)),
                           labels = c("American Indian/Alaskan Native",
                                      "East Asian",
                                      "South Asian",
                                      "Native Hawaiian/Pacific Islander",
                                      "Black",
                                      "White",
                                      "Other", 
                                      "Multiracial"))

impdat20_sexuality$hisp <- NA
impdat20_sexuality$hisp[which(impdat20_sexuality$ethnicityomb == 1)] <- 1
impdat20_sexuality$hisp[which(impdat20_sexuality$ethnicityomb == 2)] <- 0 # drops unknowns

impdat20_sexuality$race5 <- NA
impdat20_sexuality$race5[which(impdat20_sexuality$race %in% c("East Asian", "South Asian", "Native Hawaiian/Pacific Islander") & impdat20_sexuality$hisp == 0)] <- "Asian/Pacific Islander"
impdat20_sexuality$race5[which(impdat20_sexuality$race == "Black" & impdat20_sexuality$hisp == 0)] <- "Black"
impdat20_sexuality$race5[which(impdat20_sexuality$race == "White" & impdat20_sexuality$hisp == 0)] <- "White"
impdat20_sexuality$race5[which(impdat20_sexuality$race %in% c("Other", "Multiracial") & impdat20_sexuality$hisp == 0)] <- "Other"
impdat20_sexuality$race5[which(impdat20_sexuality$hisp == 1)] <- "Hispanic"
impdat20_sexuality$race5 <- as.factor(impdat20_sexuality$race5)
impdat20_sexuality$race5 <- factor(impdat20_sexuality$race5, levels(impdat20_sexuality$race5)[c(1:3,5,4)])

impdat20_sexuality$race3 <- NA
impdat20_sexuality$race3[which(impdat20_sexuality$race5 == "White")] <- "White"
impdat20_sexuality$race3[which(impdat20_sexuality$race5 == "Black")] <- "Black"
impdat20_sexuality$race3[which(impdat20_sexuality$race5 != "Black" & impdat20_sexuality$race5 != "White")] <- "Other"

# Ideology
impdat20_sexuality$ideo3 <- NA
impdat20_sexuality$ideo3[which(impdat20_sexuality$politicalid_7 < 4)] <- 1
impdat20_sexuality$ideo3[which(impdat20_sexuality$politicalid_7 == 4)] <- 0
impdat20_sexuality$ideo3[which(impdat20_sexuality$politicalid_7 > 4)] <- -1
impdat20_sexuality$ideo3_lab <- factor(impdat20_sexuality$ideo3,
                                labels = c("liberal", "moderate", "conservative"))

impdat20_sexuality$ideo_lib <- ifelse(impdat20_sexuality$ideo3 == -1, 1, 0)
impdat20_sexuality$ideo_mod <- ifelse(impdat20_sexuality$ideo3 == 0, 1, 0)
impdat20_sexuality$ideo_con <- ifelse(impdat20_sexuality$ideo3 == 1, 1, 0)

impdat20_sexuality$ideo7 <- impdat20_sexuality$politicalid_7*-1 + 7
impdat20_sexuality$ideo7_sc <- impdat20_sexuality$ideo7/6

# Region
impdat20_sexuality$south <- NA
impdat20_sexuality$south <- ifelse(impdat20_sexuality$STATE %in% c("VA", "NC", "SC", "GA", "FL", "MS", "AL", "TN", "AR", "LA", "TX"),
                            1, 0)
impdat20_sexuality$south[impdat20_sexuality$STATE == ""] <- NA

impdat20_sexuality$census_region <- NA
impdat20_sexuality$census_region[which(impdat20_sexuality$STATE %in% c("DE", "MD", "DC", "WV", "KY", "OK",
                                                         "VA", "NC", "SC", "GA", "FL", "MS", "AL", 
                                                         "TN", "AR", "LA", "TX"))] <- "South"
impdat20_sexuality$census_region[which(impdat20_sexuality$STATE %in% c("CA", "OR", "WA", "MT", "WY",
                                                         "ID", "CO", "UT", "AZ", "NM",
                                                         "NV", "AK", "HI"))] <- "West"
impdat20_sexuality$census_region[which(impdat20_sexuality$STATE %in% c("ND", "SD", "MN", "WI",
                                                         "IA", "NE", "KS", "MO",
                                                         "IL", "IN", "MI", "OH"))] <- "Midwest"
impdat20_sexuality$census_region[which(impdat20_sexuality$STATE %in% c("ME", "VT", "NH", "MA", "RI",
                                                         "CT", "NY", "NJ", "PA"))] <- "Northeast"
impdat20_sexuality$census_region[impdat20_sexuality$STATE == ""] <- NA
impdat20_sexuality$census_region <- as.factor(impdat20_sexuality$census_region)

# Education
impdat20_sexuality$edu_cat <- NA
impdat20_sexuality$edu_cat[which(impdat20_sexuality$edu <= 3)] <- 1 # Less than HS
impdat20_sexuality$edu_cat[which(impdat20_sexuality$edu == 4)] <- 2 # HS 
impdat20_sexuality$edu_cat[which(impdat20_sexuality$edu == 5 | impdat20_sexuality$edu == 6)] <- 3 # Some college or associates
impdat20_sexuality$edu_cat[which(impdat20_sexuality$edu == 7)] <- 4 # College
impdat20_sexuality$edu_cat[which(impdat20_sexuality$edu >= 8)] <- 5 # Adv degree or schooling
impdat20_sexuality$col <- ifelse(impdat20_sexuality$edu_cat >= 4, 1, 0)

impdat20_sexuality$edu_cat4 <- NA
impdat20_sexuality$edu_cat4[which(impdat20_sexuality$edu_cat <= 2)] <- "HS or Less"
impdat20_sexuality$edu_cat4[which(impdat20_sexuality$edu_cat == 3)] <- "Some College"
impdat20_sexuality$edu_cat4[which(impdat20_sexuality$edu_cat == 4)] <- "College"
impdat20_sexuality$edu_cat4[which(impdat20_sexuality$edu_cat == 5)] <- "Post-Grad"
impdat20_sexuality$edu_cat4 <- factor(impdat20_sexuality$edu_cat4,
                               levels = c("HS or Less",
                                          "Some College",
                                          "College",
                                          "Post-Grad"))

# Reason for Visiting
# impdat20_sexuality$broughtwebsite
impdat20_sexuality$broughtwebsite2 <- NA
impdat20_sexuality$broughtwebsite2[which(impdat20_sexuality$broughtwebsite %in% c("Assignment for school", "Assignment for work"))] <- "Assignment school/work"
impdat20_sexuality$broughtwebsite2[which(impdat20_sexuality$broughtwebsite %in% c("Mention in a news story (any medium)"))] <- "News Mention"
impdat20_sexuality$broughtwebsite2[which(impdat20_sexuality$broughtwebsite %in% c("My Internet search for this topic or a related topic", "Mention or link at a non-news Internet site"))] <- "Internet Mention/Search"
impdat20_sexuality$broughtwebsite2[which(impdat20_sexuality$broughtwebsite %in% "Recommendation of a friend or co-worker")] <- "Peer Recommendation"
impdat20_sexuality$broughtwebsite2[which(impdat20_sexuality$broughtwebsite %in% c("Other", "null"))] <- "Other/null"

impdat20_sexuality$broughtwebsite2 <- as.factor(impdat20_sexuality$broughtwebsite2)


impdat20_sexuality$broughtwebsite4 <- NA
impdat20_sexuality$broughtwebsite4[which(impdat20_sexuality$broughtwebsite %in% c("Assignment for school", "Assignment for work"))] <- "Assignment school/work"
impdat20_sexuality$broughtwebsite4[which(impdat20_sexuality$broughtwebsite %in% c("My Internet search for this topic or a related topic", "Mention or link at a non-news Internet site", "News Mention"))] <- "News/Internet Mention/Search"
impdat20_sexuality$broughtwebsite4[which(impdat20_sexuality$broughtwebsite %in% "Recommendation of a friend or co-worker")] <- "Peer Recommendation"
impdat20_sexuality$broughtwebsite4[which(impdat20_sexuality$broughtwebsite %in% c("Other", "null"))] <- "Other/null"

impdat20_sexuality$broughtwebsite4 <- as.factor(impdat20_sexuality$broughtwebsite4)

# Interview Date Indicators -----------------------------------------------
impdat20_sexuality$post_gf <- ifelse(impdat20_sexuality$date_mdy > "2020-05-25", 1, 0)
impdat20_sexuality$post_gf_1month <- ifelse(impdat20_sexuality$date_mdy > "2020-05-25" & impdat20_sexuality$date_mdy <= "2020-06-26", 
                                     1, 0)
impdat20_sexuality$post_gf_2month <- ifelse(impdat20_sexuality$date_mdy > "2020-06-26" & impdat20_sexuality$date_mdy <= "2020-07-26", 
                                     1, 0)
impdat20_sexuality$post_gf_3month <- ifelse(impdat20_sexuality$date_mdy > "2020-07-26" & impdat20_sexuality$date_mdy <= "2020-08-26", 
                                     1, 0)
